home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
eulisp
/
feel0_89.lha
/
Feel
/
Modules
/
stop.em
< prev
next >
Wrap
Lisp/Scheme
|
1993-07-13
|
679b
|
43 lines
;; Eulisp Module
;; Author: pete broadbery
;; File: stop.em
;; Date: 28/jun/1991
;;
;; Project:
;; Description:
;; function to stop processing andf then allows continuation
;;
(defmodule stop
(standard0
list-fns
)
()
(defcondition <stop> ())
(deflocal *cont*)
(deflocal *vals*)
(deflocal *ignore* ())
(defun set-ignore (x)
(setq *ignore* x))
(defun stop (vals)
(if (not *ignore*)
(let/cc continue
(setq *cont* continue)
(setq *vals* vals)
(cerror "Stopping..." Stop 'error-value vals))
vals))
(defun cont ()
(*cont* *vals*))
(defun vals ()
*vals*)
(export stop cont vals set-ignore)
;; end module
)